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Problema 



• Nem sempre uma linguagem de programação facilita a descrição 
de um problema. 



Solução: Abstracção Linguística 



• Inventa-se uma nova linguagem. 
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a— 



Avaliador 



Um avaliador (ou interpretador) de uma linguagem é um procedimento 
que, quando aplicado a uma expressão dessa linguagem realiza as 
operações descritas nessa expressão. 



Ideia Fundamental 



Um avaliador determina o significado de um programa mas é ele 
também um programa. 



Avaliador Meta-Circular 



É um avaliador definido na mesma linguagem que ele avalia. 
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Avaliador de Scheme 



(define (eval exp env) 
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Avaliador de Scheme 



(define (eval exp env) 

(cond ( (self-evaluating? exp) exp) 
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Avaliador de Scheme 



(define (eval exp env) 

(cond ( (self-evaluating? exp) exp) 



((quoted? exp) (text-of-quotation exp)) 
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Avaliador de Scheme 



(define (eval exp env) 

(cond ( (self-evaluating? exp) exp) 



((quoted? exp) (text-of-quotation exp)) 



(else 
(error " EVAL" exp)))) 
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Avaliador de Scheme 



(define (self-evaluating? exp) 
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Avaliador de Scheme 



(define (self-evaluating? exp) 
(cond ( (number? exp) #t) 
((string? exp) #t) 
(else #f))) 
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Avaliador de Scheme 



(define (self-evaluating? exp) 
(cond ( (number? exp) #t) 
((string? exp) #t) 
(else #f))) 

(define (quoted? exp) 
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Avaliador de Scheme 



(define (self-evaluating? exp) 
(cond ( (number? exp) #t) 
((string? exp) #t) 
(else #f))) 



(define (quoted? exp) 

(tagged-list? exp 'quote)) 
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Avaliador de Scheme 



(define (self-evaluating? exp) 
(cond ( (number? exp) #t) 
((string? exp) #t) 
(else #f))) 



(define (quoted? exp) 

(tagged-list? exp 'quote)) 



(define (tagged-list? exp tag) 
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Avaliador de Scheme 



(define (self-evaluating? exp) 
(cond ( (number? exp) #t) 
((string? exp) #t) 
(else #f))) 



(define (quoted? exp) 

(tagged-list? exp 'quote)) 






(define (tagged-list? exp tag) 
(if (pair? exp) 

(eq? (car exp) tag) 
#f)) 
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Avaliador de Scheme 



(define (self-evaluating? exp) 
(cond ( (number? exp) #t) 
((string? exp) #t) 
(else #f))) 



(define (quoted? exp) 

(tagged-list? exp 'quote)) 

(define (text-of-quotation exp) (cadr exp)) 



(define (tagged-list? exp tag) 
(if (pair? exp) 

(eq? (car exp) tag) 
#f)) 
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Selecção 



(define (eval exp env) 

(cond ( (self-evaluating? exp) exp) 



((quoted? exp) (text-of-quotation exp)) 



(else 
(error " - EVAL" exp)))) 
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Selecção 



(define (eval exp env) 

(cond ( (self-evaluating? exp) exp) 



((quoted? exp) (text-of-quotation exp)) 



((if? exp) (eval-if exp env)) 



(else 
(error " - EVAL" exp)))) 
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M „ WHBImgl 
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Selecção 



(define (if? exp) 
(tagged-list? exp 



'if)) 



mam 
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Selecção 



(define (if? exp) 

(tagged-list? exp 'if)) 

(define (if-predicate exp) (cadr exp)) 
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Selecção 



(define (if? exp) 

(tagged-list? exp 'if)) 

(define (if-predicate exp) (cadr exp)) 

(define (if-consequent exp) (caddr exp)) 
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Selecção 



(define (if? exp) 

(tagged-list? exp 'if)) 

(define (if-predicate exp) (cadr exp)) 

(define (if-consequent exp) (caddr exp)) 

(define (if-alternative exp) 
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a— 



Selecção 



(define (if? exp) 

(tagged-list? exp 'if)) 

(define (if-predicate exp) (cadr exp)) 

(define (if-consequent exp) (caddr exp)) 

(define (if-alternative exp) 
(if (not (null? (cdddr exp))) 
(cadddr exp) 
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a— 



Selecção 



(define (if? exp) 

(tagged-list? exp 'if)) 

(define (if-predicate exp) (cadr exp)) 

(define (if-consequent exp) (caddr exp)) 

(define (if-alternative exp) 
(if (not (null? (cdddr exp))) 
(cadddr exp) 
'false)) 



mam 



iffiíW 
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Selecção 



(define (if? exp) 

(tagged-list? exp 'if)) 

(define (if-predicate exp) (cadr exp)) 

(define (if-consequent exp) (caddr exp)) 

(define (if-alternative exp) 
(if (not (null? (cdddr exp))) 
(cadddr exp) 
'false)) 

(define (make-if predicate consequent alternative) 
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Selecção 



(define (if? exp) 

(tagged-list? exp 'if)) 

(define (if-predicate exp) (cadr exp)) 

(define (if-consequent exp) (caddr exp)) 

(define (if-alternative exp) 
(if (not (null? (cdddr exp))) 
(cadddr exp) 
'false)) 

(define (make-if predicate consequent alternative) 
(list ' if predicate consequent alternative)) 
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Selecção 



(define (if? exp) 

(tagged-list? exp 'if)) 

(define (if-predicate exp) (cadr exp)) 

(define (if-consequent exp) (caddr exp)) 

(define (if-alternative exp) 
(if (not (null? (cdddr exp))) 
(cadddr exp) 
'false)) 

(define (make-if predicate consequent alternative) 
(list ' if predicate consequent alternative)) 

(define (eval-if exp env) 
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Selecção 



(define (if? exp) 

(tagged-list? exp 'if)) 

(define (if-predicate exp) (cadr exp)) 

(define (if-consequent exp) (caddr exp)) 

(define (if-alternative exp) 
(if (not (null? (cdddr exp))) 
(cadddr exp) 
'false)) 

(define (make-if predicate consequent alternative) 
(list ' if predicate consequent alternative)) 

(define (eval-if exp env) 

(if (true? (eval (if-predicate exp) env)) 
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Selecção 



(define (if? exp) 

(tagged-list? exp 'if)) 

(define (if-predicate exp) (cadr exp)) 

(define (if-consequent exp) (caddr exp)) 

(define (if-alternative exp) 
(if (not (null? (cdddr exp))) 
(cadddr exp) 
'false)) 

(define (make-if predicate consequent alternative) 
(list ' if predicate consequent alternative)) 

(define (eval-if exp env) 

(if (true? (eval (if-predicate exp) env)) 
(eval (if-consequent exp) env) 
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Selecção 



(define (if? exp) 

(tagged-list? exp 'if)) 

(define (if-predicate exp) (cadr exp)) 

(define (if-consequent exp) (caddr exp)) 

(define (if-alternative exp) 
(if (not (null? (cdddr exp))) 
(cadddr exp) 
'false)) 

(define (make-if predicate consequent alternative) 
(list ' if predicate consequent alternative)) 

(define (eval-if exp env) 

(if (true? (eval (if-predicate exp) env)) 
(eval (if-consequent exp) env) 
(eval (if-alternative exp) env))) 
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Selecção 



(define false #f) 
(define true #t) 
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a— 



Selecção 



(define false #f) 

(define true #t) 

(define (true? x) 

(not (eq? x false))) 
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a— 



Selecção 



(define false #f) 

(define true #t) 

(define (true? x) 

(not (eq? x false))) 

(define (false? x) 
(eq? x false)) 
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Sequenciação 



(define (eval exp env) 

(cond ( (self-evaluating? exp) exp) 

((quoted? exp) (text-of-quotation exp)) 



((if? exp) (eval-if exp env)) 



(else 
(error " - EVAL" exp)))) 
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a— 



Sequenciação 



(define (eval exp env) 

(cond ( (self-evaluating? exp) exp) 

((quoted? exp) (text-of-quotation exp)) 



((if? exp) (eval-if exp env)) 



( (begin? exp) 



(else 
(error " - EVAL" exp)))) 
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Sequenciação 



(define (eval exp env) 

(cond ( (self-evaluating? exp) exp) 

((quoted? exp) (text-of-quotation exp)) 



((if? exp) (eval-if exp env)) 



( (begin? exp) 
(eval-sequence (begin-actions exp) env)) 



(else 
(error " - EVAL" exp)))) 
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IfBSMim 



Sequenciação 



(define (begin? exp) 

(tagged-list? exp 'begin)) 
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Sequenciação 



(define (begin? exp) 

(tagged-list? exp 'begin)) 

(define (begin-actions exp) (cdr exp)) 
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Sequenciação 



(define (begin? exp) 

(tagged-list? exp 'begin)) 

(define (begin-actions exp) (cdr exp)) 

(define (last-exp? seq) (null? (cdr seq))) 
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Sequenciação 


(define (begin? exp) 
(tagged-list? exp 


'be 


gin)) 




(define 


(begin- 


-actions 


exp) ( 


cdr exp) ) 


(define 


(last-exp? seq) 


(null 


? (cdr seq))) 


(define 


(first- 


-exp seq) 


(car 


seq)) 
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Sequenciação 


(define (begin 
(tagged-list 


? exp) 
? exp 


'be 


5±n)) 




(define 


(begin 


-actions 


3Xp) ( 


cdr exp) ) 


(define 


(last- 


exp? seq) 


(null 


? (cdr seq))) 


(define 


(first 


-exp seq) 


(car 


seq)) 


(define 


(rest- 


exps seq) 


(cdr 


seq)) 
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Sequenciação 


(define (begin 
(tagged-list 


? exp) 
? exp 


'beg 


in)) 




(define 


(begin 


-actions exp) ( 


cdr exp) ) 


(define 


(last- 


exp? seq) 


(null 


? (cdr seq))) 


(define 


(first 


-exp seq) 


(car 


seq)) 


(define 


(rest- 


exps seq) 


(cdr 


seq)) 


(define 


(make- 


begin 


seq) 


(cons 'begin seq)) 















IfBSMim 



a— 



Sequenciação 


(define (begin 
(tagged-list 


? exp) 

? exp 'begin)) 






(define 


(begin 


-actions exp) ( 


cdr exp) ) 




(define 


(last- 


exp? seq) (null 


? (cdr seq))) 


(define 


(first 


-exp seq) (car 


seq)) 




(define 


(rest- 


exps seq) (cdr 


seq)) 




(define 


(make- 


begin seq) (cons 'begin 


seq)) 


(define 


(eval- 


sequence exps env) 
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Sequenciação 



(define (begin? exp) 

(tagged-list? exp 'begin)) 

(define (begin-actions exp) (cdr exp)) 

(define (last-exp? seq) (null? (cdr seq))) 

(define (first-exp seq) (car seq)) 

(define (rest-exps seq) (cdr seq)) 

(define (make-begin seq) (cons 'begin seq)) 

(define (eval-sequence exps env) 

(cond ((last-exp? exps) (eval (first-exp exps) env)) 
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Sequenciação 



(define (begin? exp) 

(tagged-list? exp 'begin)) 

(define (begin-actions exp) (cdr exp)) 

(define (last-exp? seq) (null? (cdr seq))) 

(define (first-exp seq) (car seq)) 

(define (rest-exps seq) (cdr seq)) 

(define (make-begin seq) (cons 'begin seq)) 

(define (eval-sequence exps env) 

(cond ((last-exp? exps) (eval (first-exp exps) env)) 
(else (eval (first-exp exps) env) 
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Sequenciação 



(define (begin? exp) 

(tagged-list? exp 'begin)) 

(define (begin-actions exp) (cdr exp)) 

(define (last-exp? seq) (null? (cdr seq))) 

(define (first-exp seq) (car seq)) 

(define (rest-exps seq) (cdr seq)) 

(define (make-begin seq) (cons 'begin seq)) 

(define (eval-sequence exps env) 

(cond ((last-exp? exps) (eval (first-exp exps) env)) 
(else (eval (first-exp exps) env) 

(eval-sequence (rest-exps exps) env)))) 
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Expressões derivadas 



(define (eval exp env) 

(cond ( (self-evaluating? exp) exp) 

((quoted? exp) (text-of-quotation exp)) 



((if? exp) (eval-if exp env)) 



( (begin? exp) 
(eval-sequence (begin-actions exp) env)) 



(else 
(error " EVAL" exp)))) 
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Expressões derivadas 



(define (eval exp env) 

(cond ( (self-evaluating? exp) exp) 

((quoted? exp) (text-of-quotation exp)) 



((if? exp) (eval-if exp env)) 



( (begin? exp) 

(eval-sequence (begin-actions exp) env)) 
((cond? exp) (eval (cond->if exp) env)) 



(else 
(error " - EVAL" exp)))) 
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Expressões derivadas 



(define (cond? exp) 
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Expressões derivadas 



(define (cond? exp) 

(tagged-list? exp 'cond)) 



mam 



a— 



Expressões derivadas 



(define (cond? exp) 

(tagged-list? exp 'cond)) 

(define (cond-clauses exp) (cdr exp)) 
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a— 



Expressões derivadas 



(define (cond? exp) 

(tagged-list? exp 'cond)) 

(define (cond-clauses exp) (cdr exp)) 

(define (cond-else-clause? clause) 
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Expressões derivadas 



(define (cond? exp) 

(tagged-list? exp 'cond)) 

(define (cond-clauses exp) (cdr exp)) 

(define (cond-else-clause? clause) 
(eq? (cond-predicate clause) 'else)) 
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Expressões derivadas 



(define (cond? exp) 

(tagged-list? exp 'cond)) 

(define (cond-clauses exp) (cdr exp)) 

(define (cond-else-clause? clause) 
(eq? (cond-predicate clause) 'else)) 

(define (cond-predicate clause) (car clause)) 
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Expressões derivadas 



(define (cond? exp) 

(tagged-list? exp 'cond)) 

(define (cond-clauses exp) (cdr exp)) 

(define (cond-else-clause? clause) 
(eq? (cond-predicate clause) 'else)) 

(define (cond-predicate clause) (car clause)) 

(define (cond-actions clause) (cdr clause)) 
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Expressões derivadas 



(define (cond? exp) 

(tagged-list? exp 'cond)) 

(define (cond-clauses exp) (cdr exp)) 

(define (cond-else-clause? clause) 
(eq? (cond-predicate clause) 'else)) 

(define (cond-predicate clause) (car clause)) 

(define (cond-actions clause) (cdr clause)) 

(define (cond->if exp) 

(expand-clauses (cond-clauses exp))) 
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Expressões derivadas 



(define (expand-clauses clauses) 
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Expressões derivadas 



(define (expand-clauses clauses) 
(if (null? clauses) 
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Expressões derivadas 



(define (expand-clauses clauses) 
(if (null? clauses) 
'false 



no else clause 
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Expressões derivadas 



(define (expand-clauses clauses) 
(if (null? clauses) 

I 'false 

(let ((first (car clauses)) 



; no else clause 
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Expressões derivadas 



(define (expand-clauses clauses) 
(if (null? clauses) 

I 'false 
(let ((first (car clauses)) 
(rest (cdr clauses))) 



no else clause 
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Expressões derivadas 



(define (expand-clauses clauses) 
(if (null? clauses) 

I 'false 
(let ((first (car clauses)) 
(rest (cdr clauses))) 
(if (cond-else-clause? first) 



no else clause 
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Expressões derivadas 



(define (expand-clauses clauses) 
(if (null? clauses) 

I 'false 
(let ((first (car clauses)) 
(rest (cdr clauses))) 
(if (cond-else-clause? first) 
(if (null? rest) 



no else clause 
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no else clause 



Expressões derivadas 



(define (expand-clauses clauses) 
(if (null? clauses) 

I 'false 
(let ((first (car clauses)) 
(rest (cdr clauses))) 
(if (cond-else-clause? first) 
(if (null? rest) 

(sequence->exp (cond-actions first)) 
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no else clause 



Expressões derivadas 



(define (expand-clauses clauses) 
(if (null? clauses) 
'false 

(let ((first (car clauses)) 
(rest (cdr clauses))) 
(if (cond-else-clause? first) 
(if (null? rest) 

(sequence->exp (cond-actions first)) 
(error "ELSE clause isn't last - 
clauses)) 
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no else clause 



Expressões derivadas 



(define (expand-clauses clauses) 
(if (null? clauses) 
'false 

(let ((first (car clauses)) 
(rest (cdr clauses))) 
(if (cond-else-clause? first) 
(if (null? rest) 

(sequence->exp (cond-actions first)) 
(error "ELSE clause isn't last - 
clauses)) 
(make-if (cond-predicate first) 
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no else clause 



Expressões derivadas 



(define (expand-clauses clauses) 
(if (null? clauses) 
'false 

(let ((first (car clauses)) 
(rest (cdr clauses))) 
(if (cond-else-clause? first) 
(if (null? rest) 

(sequence->exp (cond-actions first)) 
(error "ELSE clause isn't last - 
clauses)) 
(make-if (cond-predicate first) 

(sequence->exp (cond-actions first)) 
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no else clause 



Expressões derivadas 



(define (expand-clauses clauses) 
(if (null? clauses) 
'false 

(let ((first (car clauses)) 
(rest (cdr clauses))) 
(if (cond-else-clause? first) 
(if (null? rest) 

(sequence->exp (cond-actions first)) 
(error "ELSE clause isn't last - 
clauses)) 
(make-if (cond-predicate first) 

(sequence->exp (cond-actions first)) 
(expand-clauses rest)))))) 
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no else clause 



Expressões derivadas 



(define (expand-clauses clauses) 
(if (null? clauses) 
'false 

(let ((first (car clauses)) 
(rest (cdr clauses))) 
(if (cond-else-clause? first) 
(if (null? rest) 

(sequence->exp (cond-actions first)) 
(error "ELSE clause isn't last - 
clauses)) 
(make-if (cond-predicate first) 

(sequence->exp (cond-actions first)) 
(expand-clauses rest)))))) 



(define (sequence->exp seq) 
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no else clause 



Expressões derivadas 



(define (expand-clauses clauses) 
(if (null? clauses) 
'false 

(let ((first (car clauses)) 
(rest (cdr clauses))) 
(if (cond-else-clause? first) 
(if (null? rest) 

(sequence->exp (cond-actions first)) 
(error "ELSE clause isn't last - 
clauses)) 
(make-if (cond-predicate first) 

(sequence->exp (cond-actions first)) 
(expand-clauses rest)))))) 



(define (sequence->exp seq) 
(cond ((null? seq) seq) 
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no else clause 



Expressões derivadas 



(define (expand-clauses clauses) 
(if (null? clauses) 
'false 

(let ((first (car clauses)) 
(rest (cdr clauses))) 
(if (cond-else-clause? first) 
(if (null? rest) 

(sequence->exp (cond-actions first)) 
(error "ELSE clause isn't last - 
clauses)) 
(make-if (cond-predicate first) 

(sequence->exp (cond-actions first)) 
(expand-clauses rest)))))) 



(define (sequence->exp seq) 
(cond ((null? seq) seq) 

((last-exp? seq) (first-exp seq)) 
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no else clause 



Expressões derivadas 



(define (expand-clauses clauses) 
(if (null? clauses) 
'false 

(let ((first (car clauses)) 
(rest (cdr clauses))) 
(if (cond-else-clause? first) 
(if (null? rest) 

(sequence->exp (cond-actions first)) 
(error "ELSE clause isn't last - 
clauses)) 
(make-if (cond-predicate first) 

(sequence->exp (cond-actions first)) 
(expand-clauses rest)))))) 



(define (sequence->exp seq) 
(cond ((null? seq) seq) 

((last-exp? seq) (first-exp seq)) 
(else (make-begin seq)))) 
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Aplicação de função 



(define (eval exp env) 

(cond ( (self-evaluating? exp) exp) 

((quoted? exp) (text-of-quotation exp)) 
((if? exp) (eval-if exp env)) 



( (begin? exp) 

(eval-sequence (begin-actions exp) env)) 
((cond? exp) (eval (cond->if exp) env)) 



(else 
(error " - EVAL" exp)))) 
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a— 



Aplicação de função 



(define (eval exp env) 

(cond ( (self-evaluating? exp) exp) 

((quoted? exp) (text-of-quotation exp)) 
((if? exp) (eval-if exp env)) 



( (begin? exp) 

(eval-sequence (begin-actions exp) env)) 
((cond? exp) (eval (cond->if exp) env)) 
( (application? exp) 



(else 
(error " - EVAL" exp)))) 
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Aplicação de função 



(define (eval exp env) 

(cond ( (self-evaluating? exp) exp) 

((quoted? exp) (text-of-quotation exp)) 
((if? exp) (eval-if exp env)) 



( (begin? exp) 

(eval-sequence (begin-actions exp) env)) 
((cond? exp) (eval (cond->if exp) env)) 
( (application? exp) 

(apply (eval (operator exp) env) 

(else 
(error " - EVAL" exp)))) 
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Aplicação de função 



(define (eval exp env) 

(cond ( (self-evaluating? exp) exp) 

((quoted? exp) (text-of-quotation exp)) 
((if? exp) (eval-if exp env)) 



( (begin? exp) 

(eval-sequence (begin-actions exp) env)) 
((cond? exp) (eval (cond->if exp) env)) 
( (application? exp) 

(apply (eval (operator exp) env) 

(list-of-values (operands exp) env))) 
(else 

(error " - EVAL" exp)))) 
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Aplicação de função 



(define (application? exp) 
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Aplicação de função 



(define (application? exp) 
(pair? exp)) 
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a— 



Aplicação de função 



(define (application? exp) 
(pair? exp)) 

(define (operator exp) (car exp)) 
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a— 



Aplicação de função 



(define (application? exp) 
(pair? exp)) 

(define (operator exp) (car exp)) 

(define (operands exp) (cdr exp)) 
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a— 



Aplicação de função 



(define (application? exp) 
(pair? exp)) 

(define (operator exp) (car exp)) 

(define (operands exp) (cdr exp)) 

(define (no-operands? ops) (null? ops)) 






. 
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a— 



Aplicação de função 



(define (application? exp) 
(pair? exp)) 

(define (operator exp) (car exp)) 

(define (operands exp) (cdr exp)) 

(define (no-operands? ops) (null? ops)) 

(define (f irst-operand ops) (car ops)) 
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Aplicação de função 



(define (application? exp) 
(pair? exp)) 

(define (operator exp) (car exp)) 

(define (operands exp) (cdr exp)) 

(define (no-operands? ops) (null? ops)) 

(define (f irst-operand ops) (car ops)) 

(define (rest-operands ops) (cdr ops)) 
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• (lookup-variable-value <var> <env>) 

• (extend-environment <variables> <values> <base-env>) 

• (def ine-variable ! <var> <value> <env>) 

• (set-variable-value! <var> <value> <env>) 



Ambientes: Implementação 



• Um ambiente é uma sequência de enquadramentos. 

• Cada enquadramento é uma tabela de associações. 

• Cada associação é um par variável/valor. 
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(define (eval exp env) 

(cond ( (self-evaluating? exp) exp) 

( (variable? exp) (lookup-variable-value exp env) ) 
((quoted? exp) (text-of-quotation exp)) 
( (assignment? exp) (eval-assignment exp env)) 
( (def inition? exp) (eval-def inition exp env)) 
((if? exp) (eval-if exp env)) 
( (lambda? exp) 
(make-procedure (lambda-parameters exp) 
(lambda-body exp) 
env) ) 
( (begin? exp) 

(eval-sequence (begin-actions exp) env)) 
((cond? exp) (eval (cond->if exp) env)) 
( (application? exp) 
(apply (eval (operator exp) env) 

(list-of-values (operands exp) env))) 
(else 
(error " - EVAL" exp)))) 
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